home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2003 November A / PCWK1103A.iso / Adobe After Effects 6.0 tryout / MM5.Cab / F3674_PDFL60.dll.304FA6F7_2783_11D4_8520_00C04F602FD3 / PSPROCSET / 13 < prev    next >
Text File  |  2003-07-18  |  3KB  |  172 lines
  1. %%BeginResource: procset pdfasc.prc 6.0 1
  2. %%Copyright: Copyright 1992-2003 Adobe Systems Incorporated. All Rights Reserved.
  3. /ASR {
  4. 13 dict begin
  5. /mirV? exch def
  6. /mirH? exch def
  7. /center? exch def
  8. /autorotate? exch def
  9. /angle exch def
  10. /shrink exch def
  11. /Pury exch def
  12. /Purx exch def
  13. /Plly exch def
  14. /Pllx exch def
  15. /Dury exch def
  16. /Durx exch def
  17. /Dlly exch def
  18. /Dllx exch def
  19. Dury 0 eq Durx 0 eq and Dlly 0 eq Dllx 0 eq and and
  20. { shrink 0 gt { GClipBBox } { GPageBBox } ifelse }
  21. { ITransDBBox }
  22. ifelse
  23. /PHt Pury Plly sub def
  24. /PW Purx Pllx sub def
  25. /DHt Dury Dlly sub def
  26. /DW Durx Dllx sub def
  27. angle 90 eq angle 270 eq or
  28. {
  29. PHt /PHt PW def /PW exch def
  30. } if
  31. autorotate? PHt PW ne and DHt DW ne and
  32. {
  33. DHt DW ge
  34. PHt PW ge
  35. ne
  36. { /angle angle 90 add def
  37. PHt /PHt PW def /PW exch def
  38. }
  39. if
  40. } if
  41. angle 0 ne
  42. {
  43. /angle angle 360 mod def
  44. angle rotate
  45. angle 90 eq
  46. { 0 DW neg translate }
  47. if
  48. angle 180 eq
  49. { DW neg DHt neg translate }
  50. if
  51. angle 270 eq
  52. { DHt neg 0 translate }
  53. if
  54. } if
  55. center?
  56. {
  57. ITransBBox
  58. Durx Dllx add 2 div Dury Dlly add 2 div
  59. Purx Pllx add -2 div Pury Plly add -2 div
  60. 3 -1 roll add exch
  61. 3 -1 roll add exch
  62. translate
  63. }
  64. {
  65. ITransBBox
  66. angle 0 eq
  67. {Dllx Pllx sub Dury Pury sub}
  68. if
  69. angle 90 eq
  70. {Durx Purx sub Dury Pury sub}
  71. if
  72. angle 180 eq
  73. {Durx Purx sub Dlly Plly sub}
  74. if
  75. angle 270 eq
  76. {Dllx Pllx sub Dlly Plly sub}
  77. if
  78. translate
  79. }
  80. ifelse
  81. mirH? mirV? or
  82. {
  83. ITransBBox
  84. mirH?
  85. {
  86. -1 1 scale
  87. Durx Dllx add neg 0 translate
  88. } if
  89. mirV?
  90. {
  91. 1 -1 scale
  92. 0 Dury Dlly add neg translate
  93. } if
  94. } if
  95. shrink 0 ne
  96. {
  97. ITransBBox
  98. Dury Dlly sub Pury Plly sub div
  99. Durx Dllx sub Purx Pllx sub div
  100. 2 copy gt { exch } if pop
  101. shrink 1 eq
  102. {
  103. Durx Dllx add 2 div Dury Dlly add 2 div translate
  104. dup scale
  105. Purx Pllx add -2 div Pury Plly add -2 div translate
  106. }
  107. {
  108. shrink 2 eq 1 index 1.0 lt and
  109. {
  110. Durx Dllx add 2 div Dury Dlly add 2 div translate
  111. dup scale
  112. Purx Pllx add -2 div Pury Plly add -2 div translate
  113. }
  114. { pop }
  115. ifelse
  116. }
  117. ifelse
  118. } if
  119. end
  120. } [/autorotate? /shrink? /mirH? /mirV? /angle /Pury /Purx /Plly /Pllx /Durx /Dury /Dllx /Dlly /PW /PHt /DW /DHt
  121. /Devurx /Devury /Devllx /Devlly /pdfHt /pdfW]
  122. bld
  123. /GClipBBox
  124. {
  125. gsave newpath clippath pathbbox newpath grestore
  126. /Dury exch def
  127. /Durx exch def
  128. /Dlly exch def
  129. /Dllx exch def
  130. ITransDBBox
  131. } [/Durx /Dury /Dllx /Dlly]
  132. bld
  133. /GPageBBox
  134. {
  135. {
  136. currentpagedevice /PageSize get aload pop
  137. /Devury exch def /Devurx exch def
  138. /Devllx 0 def /Devlly 0 def
  139. ITransBBox
  140. }
  141. stopped
  142. { GClipBBox }
  143. if
  144. } [/Devurx /Devury /Devllx /Devlly ]
  145. bld
  146. /ITransDBBox
  147. {
  148. Durx Dury transform matrix defaultmatrix itransform
  149. /Devury exch def
  150. /Devurx exch def
  151. Dllx Dlly transform matrix defaultmatrix itransform
  152. /Devlly exch def
  153. /Devllx exch def
  154. Devury Devlly lt {/Devlly Devury /Devury Devlly def def} if
  155. Devurx Devllx lt {/Devllx Devurx /Devurx Devllx def def} if
  156. } [/Durx /Dury /Dllx /Dlly /Devurx /Devury /Devllx /Devlly ]
  157. bld
  158. /ITransBBox
  159. {
  160. /um matrix currentmatrix matrix defaultmatrix matrix invertmatrix matrix concatmatrix def
  161. Devllx Devlly um itransform
  162. Devurx Devury um itransform
  163. /Dury exch def
  164. /Durx exch def
  165. /Dlly exch def
  166. /Dllx exch def
  167. Dury Dlly lt {/Dlly Dury /Dury Dlly def def} if
  168. Durx Dllx lt {/Dllx Durx /Durx Dllx def def} if
  169. } [ /um /Durx /Dury /Dllx /Dlly /Devurx /Devury /Devllx /Devlly ]
  170. bld
  171. %%EndResource
  172.